unit dComissao;

interface
uses
classes,
dObjects;

type
Tcomissao=class(TdObjects)
private
fdtmovimento : tdatetime;
fflagbaixada : boolean;
fidempresa : integer;
fidplanilha : integer;
fidvendedor : integer;
fvalcomissao : double;
public
constructor create;
destructor destroy; override;
procedure clear;
published
 property dtmovimento : tdatetime read fdtmovimento write fdtmovimento;
 property flagbaixada : boolean read fflagbaixada write fflagbaixada;
 property idempresa : integer read fidempresa write fidempresa;
 property idplanilha : integer read fidplanilha write fidplanilha;
 property idvendedor : integer read fidvendedor write fidvendedor;
 property valcomissao : double read fvalcomissao write fvalcomissao;
end;
implementation
constructor Tcomissao.create;
begin
inherited;
clear;
  addPK (['idplanilha, idempresa, idvendedor']);
  Tablename := 'comissao';
end;
destructor Tcomissao.destroy;
begin
inherited destroy;
end;
procedure Tcomissao.clear;
begin
 fdtmovimento:=0;
 fflagbaixada:=false;
 fidempresa  :=0;
 fidplanilha :=0;
 fidvendedor :=0;
 fvalcomissao:=0.0;
end;


end.
 